home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazine 28 Bonus
/
CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin
/
data
/
shared.dir
/
03104_Script_BLACK OUT SCREEN
< prev
next >
Wrap
Text File
|
1996-06-21
|
975b
|
30 lines
-- -----------------------------------------------------------
-- Handler blackOutScreen sets screen behind the director movie
-- to black.
on blackOutScreen
global blackScreenObj
if (the machineType <> 256) and voidp(blackScreenObj) then
-- mac and hasn't been done already. the second test allows the author to
-- keep initializing the program without getting the error message that
-- the object already exists.
openXObjHandler "Backdrop XObj"
put backdrop(mNew) into blackScreenObj
blackScreenObj(mShow)
end if
end
-- -----------------------------------------------------------
-- Handler unBlackOutScreen disposes of the xobject used to
-- black out the screen and closes the xobject library.
on unBlackOutScreen
global blackScreenObj
if (the machineType <> 256) then -- mac
if objectP(blackScreenObj) then
blackScreenObj(mdispose)
closeXObjHandler "Backdrop XObj"
end if
end if
end